home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / DFUE / STFax / Install < prev    next >
Encoding:
Text File  |  1999-10-24  |  16.8 KB  |  526 lines
  1. ; $VER: STFax-Install 2.4 (18.7.98)
  2. ;
  3. ; Installer script by Simone Tellini <wiz@pragmanet.it>
  4. ; with the help of Ben Preece <beej@bigfoot.com>
  5. ;
  6.  
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8. ;  set initial variables
  9. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10.  
  11. (set @app-name "STFax Professional")
  12. (set AppDir "STFax4")
  13.  
  14. (if (<= (/ (getversion) 65536) 38)
  15.    (set Kick2 1)
  16.    (set Kick2 0)
  17. )
  18.  
  19. (if (exists "STFax:" (noreq))
  20.    (set @default-dest (pathonly (expandpath "STFax:")))
  21. )
  22.  
  23. (complete 0)
  24.  
  25. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26. ;  English strings
  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28.  
  29. (if (= @language "english") (
  30.  
  31.     (set @error-msg "An unexpected error has occured. Installation aborted.")
  32.  
  33.     (set #MUINotFound "MUI doesn't seem to be installed. You need to install it\nbefore installing STFax Pro.")
  34.  
  35.     (set #AskInstallDir (cat "Please select where you would like " @app-name " installed.\n"
  36.                         "A drawer called '" AppDir "' will be created there."))
  37.  
  38.     (set #InstallDirHelp (cat "Select where you would like " @app-name " installed. "
  39.                          "The installer will then create a drawer called '" AppDir "', "
  40.                          "and copy the program and necessary files into it.\n"))
  41.  
  42.     (set #AskName     "Please enter your full name:")
  43.     (set #AskNameHelp (cat "Enter your full name. This is needed to register your copy of " @app-name))
  44.  
  45.     (set #AskCompany     "Please enter your company name:")
  46.     (set #AskCompanyHelp (cat "Enter your company name. This is needed to register your copy of " @app-name))
  47.  
  48.     (set #AskRegCode     "Please enter your registration code:")
  49.     (set #AskRegCodeHelp (cat "Enter your registration code. You can find it on your "
  50.                          "registration card. Make sure to enter it correctly!"))
  51.  
  52.     (set #MUIClass     "Installing some MUI classes...")
  53.     (set #MUIClassHelp "This will install some MUI classes needed by STFax")
  54.  
  55.     (set #Datatype     "Installing STFax.datatype...")
  56.     (set #DatatypeHelp (cat "This will install the STFax.datatype: it will let "
  57.                        "you import STFax faxes into any program that supports "
  58.                        "datatypes."))
  59.  
  60.     (set #UserStartup     "Editing your S:User-Startup")
  61.     (set #UserStartupHelp "The Installer will add an assign needed by STFax")
  62.  
  63.     (set #KeyFile "Creating your key file")
  64.  
  65.     (set #Catalogs "Copying catalog files")
  66.  
  67.     (set #AskContribs     "Do you want to install the contributions?")
  68.     (set #AskContribsHelp "These are small utilities written by STFax users")
  69.     (set #CopyContribs    "Copying contributions")
  70.  
  71.     (set #AskSecondDisk "Please insert the second disk in your floppy drive")
  72.  
  73.     (set #RemoveTemp    "Removing temporary files...")
  74. ))
  75.  
  76. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  77. ;  Deutsch strings
  78. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  79.  
  80. (if (= @language "deutsch") (
  81.  
  82.     (set @error-msg "Es ist ein unerwarteter Fehler aufgetreten. Der Installationsvorgang wurde abgebrochen.")
  83.  
  84.     (set #MUINotFound "Auf Ihrem Rechner ist offensichtlich kein MUI installiert. MUI muß installiert werden,\nbevor Sie STFax Pro installieren.")
  85.  
  86.     (set #AskInstallDir (cat "Bitte wählen Sie das Verzeichnis, in dem Sie " @app-name " installieren wollen.\n"
  87.                         "Ein Unterverzeichnis namens '" AppDir "' wird dort automatisch erzeugt."))
  88.  
  89.     (set #InstallDirHelp (cat "Wählen Sie ein Verzeichnis, in dem Sie " @app-name " installieren wollen. "
  90.                          "Der Installer erzeugt dann ein Verzeichnis namens '" AppDir "', "
  91.                          "in welches das Programm und alle benötigten Dateien kopiert werden.\n"))
  92.  
  93.     (set #AskName     "Bitte geben Sie Ihren vollständigen Namen ein:")
  94.     (set #AskNameHelp (cat "Geben Sie Ihren vollständigen Namen ein. Dies ist notwendig um " @app-name " zu registrieren."))
  95.  
  96.     (set #AskCompany     "Bitte geben Sie Ihren Firmennamen ein:")
  97.     (set #AskCompanyHelp (cat "Geben Sie Ihren Firmennamen ein. Dies ist notwendig um " @app-name " zu registrieren."))
  98.  
  99.     (set #AskRegCode     "Bitte geben Sie Ihre Seriennummer ein:")
  100.     (set #AskRegCodeHelp (cat "Geben Sie die Seriennummer des Programms ein.  Sie finden diese auf"
  101.                          "auf der Registrierkarte. Bitte vergewissern Sie sich, daß Sie die Nummer korrekt eingeben!"))
  102.  
  103.     (set #MUIClass     "Installiere benötigte MUI-Klassen...")
  104.     (set #MUIClassHelp "Diese Schritt installiert einige MUI-Klassen, die von STFax benötigt werden")
  105.  
  106.     (set #Datatype     "Installiere das STFax.datatype...")
  107.     (set #DatatypeHelp (cat "Dieser Schritt installiert das STFax.datatype: es gestattet Ihnen "
  108.                        "mit STFax erstellte/empfangene Faxe in jedes Programm zu importieren, "
  109.                        "das Datatypes unterstützt."))
  110.  
  111.     (set #UserStartup     "Die Datei S:User-Startup wird angepaßt")
  112.     (set #UserStartupHelp "Der Installer richtet ein von STFax benötigtes Assign ein")
  113.  
  114.     (set #KeyFile "Erzeuge Ihr Keyfile")
  115.  
  116.     (set #Catalogs "Kopiere die catalog-Dateien")
  117.  
  118.     (set #AskContribs     "Wollen Sie die Goodies installieren?")
  119.     (set #AskContribsHelp "Hierbei handelt es sich um kleine Utilities, die von anderen STFax-Benutzern erstellt wurden.")
  120.     (set #CopyContribs    "Goodies werden kopiert")
  121.  
  122.     (set #AskSecondDisk "Bitte legen Sie die zweite Diskette in Ihr Diskettenlaufwerk")
  123.  
  124.     (set #RemoveTemp    "Temporäre Dateien werden gelöscht...")
  125. ))
  126.  
  127. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  128. ;  Italian strings
  129. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  130.  
  131. (if (= @language "italiano") (
  132.  
  133.     (set @error-msg "È accaduto un errore inaspettato. Installazione annullata.")
  134.  
  135.     (set #MUINotFound "MUI non sembra essere installata. Devi installarla\nprima di procedere ad installare STFax Pro.")
  136.  
  137.     (set #AskInstallDir (cat "Scegli dove vuoi installare " @app-name ".\n"
  138.                         "Lì verrà creata una directory chiamata '" AppDir "'."))
  139.  
  140.     (set #InstallDirHelp (cat "Scegli dove vuoi installare " @app-name ". "
  141.                          "L'installer creerà una directory chiamata '" AppDir "', "
  142.                          "e vi copierà il programma e i file necessari.\n"))
  143.  
  144.     (set #AskName "Inserisci nome e cognome:")
  145.     (set #AskNameHelp (cat "Inserisci il tuo nome.\n"
  146.                       "È necessario per registrare la tua copia di " @app-name))
  147.  
  148.     (set #AskCompany "Inserisci il nome della tua ditta:")
  149.     (set #AskCompanyHelp (cat "Inserisci il nome della tua ditta.\nÈ necessario per registrare la tua copia di " @app-name))
  150.  
  151.     (set #AskRegCode "Inserisci il tuo codice di registrazione:")
  152.     (set #AskRegCodeHelp (cat "Inserisci il tuo codice di registrazione.\n"
  153.                          "Lo puoi trovare sulla cartolina di registrazione.\n"
  154.                          "Assicurati di inserirlo correttamente!"))
  155.  
  156.     (set #MUIClass     "Installo alcune classi MUI...")
  157.     (set #MUIClassHelp "Installo alcune classi MUI utilizzate da STFax")
  158.  
  159.     (set #Datatype     "Installo l'STFax.datatype...")
  160.     (set #DatatypeHelp (cat "Questa operazione installerà STFax.datatype: ti permetterà "
  161.                        "di importare i fax di STFax in tutti i programmi che supportano "
  162.                        "i datatype."))
  163.  
  164.     (set #UserStartup     "Modifico la tua s:User-Startup")
  165.     (set #UserStartupHelp "L'Installer aggiungerà un assign necessario per STFax")
  166.  
  167.     (set #KeyFile "Creo il tuo key file")
  168.  
  169.     (set #Catalogs "Copio i cataloghi")
  170.  
  171.     (set #AskContribs     "Vuoi installare i contributi?")
  172.     (set #AskContribsHelp "Sono piccole utilities scritte da utenti di STFax.")
  173.     (set #CopyContribs    "Copio i contributi")
  174.  
  175.     (set #AskSecondDisk "Inserisci il secondo disco nel drive")
  176.  
  177.     (set #RemoveTemp    "Rimuovo i file temporanei...")
  178. ))
  179.  
  180.  
  181. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  182. ;  Here we go...
  183. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  184.  
  185. (welcome)
  186.  
  187. (if (= (exists "MUI:" (noreq)) 0)
  188.     (abort #MUINotFound)
  189. )
  190.  
  191. (set InstallDir
  192.    (askdir
  193.       (prompt  #AskInstallDir)
  194.       (help    #InstallDirHelp)
  195.       (default @default-dest)
  196.    )
  197. )
  198.  
  199. (Set DestDir        (tackon InstallDir AppDir))
  200. (Set FaxInDir       (tackon DestDir "Fax_In"))
  201. (Set FaxOutDir      (tackon DestDir "Fax_Out"))
  202. (Set ConfigDir      (tackon DestDir "Config"))
  203. (Set LocaleDir      (tackon DestDir "Catalogs"))
  204. (Set ContribDir     (tackon DestDir "Contributions"))
  205. (Set DataDir        (tackon DestDir "Data"))
  206. (Set PicsDir        (tackon DestDir "Pics"))
  207. (Set RexxDir        (tackon DestDir "Rexx"))
  208. (Set ScriptDir      (tackon DestDir "Scripts"))
  209. (Set DocsDir        (tackon DestDir "Docs"))
  210. (Set MessagesDir    (tackon DestDir "Messages"))
  211. (set LibsDir        (tackon DestDir "libs"))
  212.  
  213. (set @default-dest  DestDir)
  214.  
  215. (set MainExe "STFax")
  216.  
  217. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  218. ;  Setup
  219. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  220.  
  221. (makeassign "STFaxInstall" "")
  222.  
  223. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  224. ;  Create directories
  225. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  226.  
  227. (makedir DestDir)
  228. (makedir LocaleDir  (infos))
  229. (makedir FaxInDir   (infos))
  230. (makedir FaxOutDir  (infos))
  231. (makedir DataDir)
  232. (makedir ConfigDir)
  233. (makedir MessagesDir)
  234. (makedir (tackon MessagesDir "0000"))
  235. (makedir LibsDir)
  236.  
  237. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  238. ;  Copy files
  239. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  240.  
  241. (if (exists ("STFaxInstall:/STFax.info"))
  242.     (copyfiles
  243.         (source "STFaxInstall:/STFax.info")
  244.         (dest InstallDir)
  245.         (newname "STFax4.info")
  246.         (infos)
  247.         (noposition)
  248.     )
  249. )
  250.  
  251. (complete 10)
  252.  
  253. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  254. ;  Copy main files
  255. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  256.  
  257. (copyfiles
  258.     (source (tackon "STFaxInstall:" MainExe))
  259.     (dest DestDir)
  260.     (newname "STFax")
  261. )
  262.  
  263. (copyfiles
  264.     (source "STFaxInstall:FaxViewer")
  265.     (dest DestDir)
  266. )
  267.  
  268. (copyfiles
  269.     (source "STFaxInstall:Phonebook")
  270.     (dest DestDir)
  271. )
  272.  
  273. (copylib
  274.     (source "STFaxInstall:libs/STFax.library")
  275.     (dest LibsDir)
  276. )
  277.  
  278. (copylib
  279.     (source "STFaxInstall:libs/vapor_toolkit.library")
  280.     (dest "LIBS:")
  281. )
  282.  
  283. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  284. ;  copy icons files, if needed
  285. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  286.  
  287.  
  288. (if (= (exists (tackon DestDir "STFax.info")) 0)
  289.     (copyfiles (source "STFaxInstall:STFax.info")       (dest DestDir)   (noposition))
  290. )
  291.  
  292. (if (= (exists (tackon DestDir "FaxViewer.info")) 0)
  293.     (if (exists "STFaxInstall:FaxViewer.info")
  294.         (copyfiles (source "STFaxInstall:FaxViewer.info")   (dest DestDir)   (noposition))
  295.     )
  296. )
  297.  
  298. (if (= (exists (tackon DestDir "Phonebook.info")) 0)
  299.     (if (exists "STFaxInstall:Phonebook.info")
  300.         (copyfiles (source "STFaxInstall:Phonebook.info")   (dest DestDir)   (noposition))
  301.     )
  302. )
  303.  
  304. (if (= (exists (tackon DestDir "STFax.guide.info")) 0)
  305.     (copyfiles (source "STFaxInstall:STFax.guide.info") (dest DestDir)   (noposition))
  306. )
  307.  
  308. (copyfiles (source "STFaxInstall:Catalogs.info")    (dest DestDir)   (noposition))
  309. (copyfiles (source "STFaxInstall:Rexx.info")        (dest DestDir)   (noposition))
  310.  
  311. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  312. ;  copy sub directories
  313. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  314.  
  315. (copyfiles (source "STFaxInstall:Rexx")             (dest RexxDir)   (noposition) (infos) (all))
  316. (copyfiles (source "STFaxInstall:Scripts")          (dest ScriptDir) (noposition) (infos) (all))
  317. (copyfiles (source "STFaxInstall:Pics")             (dest PicsDir)   (all))
  318. (complete 20)
  319. (copyfiles (source "STFaxInstall:Data")             (dest DataDir)   (all))
  320. (copyfiles (source "STFaxInstall:Docs")             (dest DocsDir)   (noposition) (infos) (all))
  321. (complete 40)
  322.  
  323. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  324. ;  move old files in the right position
  325. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  326.  
  327. (if (= (exists (tackon DestDir "NoData.txt")) 1)
  328.     (
  329.         (copyfiles (source (tackon DestDir "NoData.txt")) (dest DataDir))
  330.         (delete (tackon DestDir "NoData.txt"))
  331.     )
  332. )
  333.  
  334. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  335. ;  Copy the guide
  336. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  337.  
  338. (copyfiles (source "STFaxInstall:STFax.guide")   (dest DestDir))
  339.  
  340. (if Kick2
  341.    (tooltype
  342.       (dest (tackon DestDir "STFax.guide"))
  343.       (setdefaulttool "AmigaGuide")
  344.    )
  345. )
  346.  
  347. (complete 50)
  348.  
  349. (copyfiles
  350.   (source "STFaxInstall:Catalogs")
  351.   (dest LocaleDir)
  352.   (pattern "#?.c?")
  353. )
  354.  
  355. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  356. ;  Install MUI classes
  357. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  358.  
  359. (copylib
  360.        (prompt #MUIClass " (NFloattext.mcc)")
  361.        (help   #MUIClassHelp)
  362.        (source "STFaxInstall:MUI/NFloattext.mcc")
  363.        (dest   "MUI:Libs/MUI")
  364.        (confirm)
  365. )
  366.  
  367. (copylib
  368.        (prompt #MUIClass " (NList.mcc)")
  369.        (help   #MUIClassHelp)
  370.        (source "STFaxInstall:MUI/NList.mcc")
  371.        (dest   "MUI:Libs/MUI")
  372.        (confirm)
  373. )
  374.  
  375. (copylib
  376.        (prompt #MUIClass " (NListview.mcc)")
  377.        (help   #MUIClassHelp)
  378.        (source "STFaxInstall:MUI/NListview.mcc")
  379.        (dest   "MUI:Libs/MUI")
  380.        (confirm)
  381. )
  382.  
  383. (copylib
  384.        (prompt #MUIClass " (NListviews.mcp)")
  385.        (help   #MUIClassHelp)
  386.        (source "STFaxInstall:MUI/NListviews.mcp")
  387.        (dest   "MUI:Libs/MUI")
  388.        (confirm)
  389. )
  390.  
  391. (copylib
  392.        (prompt #MUIClass " (Textinput.mcc)")
  393.        (help   #MUIClassHelp)
  394.        (source "STFaxInstall:MUI/Textinput.mcc")
  395.        (dest   "MUI:Libs/MUI")
  396.        (confirm)
  397. )
  398.  
  399. (copylib
  400.        (prompt #MUIClass " (Textinput.mcp)")
  401.        (help   #MUIClassHelp)
  402.        (source "STFaxInstall:MUI/Textinput.mcp")
  403.        (dest   "MUI:Libs/MUI")
  404.        (confirm)
  405. )
  406.  
  407. (copylib
  408.        (prompt #MUIClass " (Textinputscroll.mcc)")
  409.        (help   #MUIClassHelp)
  410.        (source "STFaxInstall:MUI/Textinputscroll.mcc")
  411.        (dest   "MUI:Libs/MUI")
  412.        (confirm)
  413. )
  414.  
  415. (copylib
  416.        (prompt #MUIClass " (SpeedBar.mcc)")
  417.        (help   #MUIClassHelp)
  418.        (source "STFaxInstall:MUI/SpeedBar.mcc")
  419.        (dest   "MUI:Libs/MUI")
  420.        (confirm)
  421. )
  422.  
  423. (copylib
  424.        (prompt #MUIClass " (SpeedButton.mcc)")
  425.        (help   #MUIClassHelp)
  426.        (source "STFaxInstall:MUI/SpeedButton.mcc")
  427.        (dest   "MUI:Libs/MUI")
  428.        (confirm)
  429. )
  430.  
  431. (copylib
  432.        (prompt #MUIClass " (SpeedBar.mcp)")
  433.        (help   #MUIClassHelp)
  434.        (source "STFaxInstall:MUI/SpeedBar.mcp")
  435.        (dest   "MUI:Libs/MUI")
  436.        (confirm)
  437. )
  438.  
  439. (copylib
  440.        (prompt #MUIClass " (CManager.mcc)")
  441.        (help   #MUIClassHelp)
  442.        (source "STFaxInstall:MUI/CManager.mcc")
  443.        (dest   "MUI:Libs/MUI")
  444.        (confirm)
  445. )
  446.  
  447. (copylib
  448.        (prompt #MUIClass " (CManager.library)")
  449.        (help   #MUIClassHelp)
  450.        (source "STFaxInstall:libs/CManager.library")
  451.        (dest   "Libs:")
  452.        (confirm)
  453. )
  454.  
  455. (complete 60)
  456.  
  457. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  458. ;  Install stuff on SYS:
  459. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  460.  
  461. (copyfiles
  462.     (source "STFaxInstall:Devs/Printers/STFaxPrt")
  463.     (dest "DEVS:Printers")
  464. )
  465.  
  466. (copyfiles
  467.   (source "STFaxInstall:Devs/Datatypes")
  468.   (dest "DEVS:Datatypes")
  469.   (pattern "#?")
  470.   (infos)
  471.   (noposition)
  472. )
  473.  
  474. (copylib
  475.        (prompt #Datatype)
  476.        (help   #DatatypeHelp)
  477.        (source "STFaxInstall:Classes/Datatypes/STFax.datatype")
  478.        (dest   "SYS:Classes/Datatypes")
  479.        (confirm)
  480. )
  481.  
  482. (complete 70)
  483.  
  484. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  485. ;  Update the user-startup
  486. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  487.  
  488. (startup "STFax"
  489.         (prompt #UserStartup)
  490.         (help   #UserStartupHelp)
  491.         (command (cat "Assign STFax: \"" DestDir "\" >NIL:\nAssign LIBS: STFax:libs ADD"))
  492. )
  493.  
  494. (makeassign "STFax" DestDir)
  495. (run "Assign LIBS: STFax:libs ADD")
  496.  
  497. (complete 80)
  498.  
  499. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  500. ;  install catalogs
  501. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  502.  
  503. (copyfiles
  504.         (prompt #Catalogs)
  505.         (help @copyfiles-help)
  506.         (source "STFaxInstall:Catalogs")
  507.         (dest LocaleDir)
  508.         (choices "italiano" "deutsch")
  509.         (confirm)
  510. )
  511.  
  512. (complete 90)
  513.  
  514. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  515. ;  Cleanup
  516. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  517.  
  518. (run "Assign STFaxInstall: REMOVE")
  519.  
  520. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  521. ;  All done.
  522. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  523.  
  524. (complete 100)
  525.  
  526.